home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / HTML_dopus5 / HTML.dopus5 < prev    next >
Text File  |  1979-12-31  |  1KB  |  54 lines
  1. /* Programm: HTML.Dopus5 [25.6.96]
  2. ** $VER: HTML.dopus5 1.0 (25.6.96)
  3. **
  4. ** Needed: Directory Opus V5.11 (© by Jonathan Potter & GPSoftware)
  5. **         AWEB V1.3 (© 1996 by Yvon Rozijn)
  6. **
  7. ** Copyright © 1996 Tony Corona (EMail: crown@cybercomm.nl)
  8. **                              (http://www.cybercomm.nl/~crown)
  9. **
  10. **
  11. **
  12. ** Load HTML documents into AWEB with Dopus.
  13. **
  14. ** Create new button or filetype, Call as:
  15. ** ----------------------------------------------------------------------
  16. ** ARexx        DOpus5:ARexx/HTML.dopus5 {f}
  17. ** ----------------------------------------------------------------------
  18. ** Flags: No file quote.
  19. **
  20. ** -----------------------------------------
  21. **
  22. ** ---------- Path to AWEB V1.3 : --------*/
  23.  
  24. AWEB = "AmiTCP:AWEB/AWEB"
  25.  
  26. /*----------- Prefs to use : -------------*/
  27.  
  28. PREF = "AmiTCP:AWEB/AWeb-WB.prefs"
  29.  
  30. /*----------------------------------------*/
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37. parse arg document
  38. options results
  39.  
  40.  
  41. If Show("P","AWEB.1") Then
  42.         address "AWEB.1"
  43. Else Do
  44.         address command 'run >nil: <nil: 'AWEB document 'local config' PREF
  45.         Exit
  46.         End
  47.  
  48. address aweb.1
  49. open url 'file://localhost/'document
  50.  
  51. EXIT
  52. end
  53.  
  54.